(require :rtmeus (format nil "~A/eus/common/rtmeus.l" (unix:getenv 'RTMEUSDIR)))
;;
(setq *rtm* (instance RTMeus :init "localhost"))
(send *rtm* :load-module (format nil "~A/RTMEus/Linux/lib/TimerTest.so" (unix:getenv 'RTMEUSDIR)) "TimerTestInit")
(setq hoge (send *rtm* :create-component "TimerTest" "TimerTest0" :execrate 1 :with-outstate nil))
(setq fuga (send *rtm* :create-component "TimerTest" "TimerTest1" :execrate 2 :with-outstate nil))
(send *rtm* :set-master-comp hoge)
(send *rtm* :add-slave-comp fuga)
(send *rtm* :all-activate)
(unix:sleep 10)
(send *rtm* :all-deactivate)
(warn "~%Enter plugin mode~%~%")
(send *rtm* :set-plugin-mode)
(send *rtm* :all-activate)
(unix:sleep 10)
(send *rtm* :all-deactivate)
